unit uFormUser;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, uUIFormPlugin,
  Dialogs, ExtCtrls, RzPanel, RzSplit, cxGraphics, cxControls,
  cxLookAndFeels, cxLookAndFeelPainters, cxStyles, dxSkinsCore,
  dxSkinsDefaultPainters, dxSkinscxPCPainter, cxCustomData, cxFilter,
  cxData, cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxClasses,
  cxGridCustomView, cxGridCustomTableView, cxGridTableView,
  cxGridDBTableView, cxGrid, ComCtrls;

type
  TFormUser = class(TUIPluginForm)
    spltr: TRzSplitter;
    pLeft: TPanel;
    pRight: TPanel;
    p1: TPanel;
    p2: TPanel;
    pUser: TPanel;
    pRole: TPanel;
    pGroup: TPanel;
    p3: TPanel;
    p4: TPanel;
    sp: TSplitter;
    gridUser: TcxGridDBTableView;
    cxGrid1Level1: TcxGridLevel;
    cxGrid1: TcxGrid;
    tvGroup: TTreeView;
    tvFunc: TTreeView;
    tvReport: TTreeView;
  private
    { Private declarations }
  public
    function showAsModal: Integer; stdcall;
    { Public declarations }
  end;

var
  FormUser: TFormUser;

implementation

{$R *.dfm}

{ TFormUser }

function TFormUser.showAsModal: Integer;
begin
  Result := Self.ShowModal;
end;

end.
